home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / toadstools.dxr / Internal_13_loop pop mushrooms.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  413 b   |  21 lines
  1. on exitFrame
  2.   if not soundBusy(1) then
  3.     AllDone = 1
  4.     repeat with i = 21 to 38
  5.       if not (i = 28) then
  6.         if sprite(i).member.name <> sprite(i).myNextName then
  7.           sprite(i).member = sprite(i).myNextName
  8.           AllDone = 0
  9.           exit repeat
  10.         end if
  11.       end if
  12.     end repeat
  13.     if not AllDone then
  14.       go(the frame)
  15.     else
  16.     end if
  17.   else
  18.     go(the frame)
  19.   end if
  20. end
  21.